object DMMetryki: TDMMetryki
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 336
  Width = 561
  object ADQMetryki: TADQuery
    SQL.Strings = (
      
        'select idMetryki, chPublikator, chpublikator16, dtOgloszenie, dt' +
        'DataWpisu, idNazwyOddzialow, idAdresXML, '
      
        'substring(chPublikator, 1, patindex('#39'%[0-9]%'#39', chPublikator)-1) ' +
        'as chRodzajPub, reverse(substring(reverse(chPublikator), patinde' +
        'x('#39'%.%'#39', reverse(chPublikator)), len(chPublikator))) as chPubSkr' +
        ', chSygnaturaWpisu, inNumerWpisu'
      'from Metryki'
      'where inKRS = :inkrs'
      'and chPublikator like '#39'm.sigkrs%'#39
      'order by dtDataWpisu, chPublikator16')
    Left = 16
    Top = 8
    ParamData = <
      item
        Name = 'INKRS'
        ParamType = ptInput
      end>
  end
  object ADQDane: TADQuery
    SQL.Strings = (
      
        'select M.idMetryki, M.chPublikator, M.dtOgloszenie, M.idPodmiotu' +
        ', M.inDotRoku, M.dtDataPocz, M.dtDataKon, M.inKRS, M.chPKD, M.bo' +
        'ZakresDat, M.boGotowe, s.chSadOgloszenia, M.idMiejscowosciWGmina' +
        'ch, m.dtDataWpisu, m.idUlicyKRS, m.idNumerWMiescie, M.chUwagiTxt' +
        ', M.chSygnaturaWpisu, M.inNumerWpisu'
      '     , P.chNazwa'
      '     , R.chRodzaj'
      '     , PR.chPodRodzaj '
      'from Metryki M'
      'left outer join Podmioty P on M.idpodmiotu = P.idPodmiotu'
      'left outer join Rodzaje R on M.idRodzaju = R.idRodzaju'
      
        'left outer join PodRodzaje PR on M.idPodRodzaju = PR.idPodRodzaj' +
        'u'
      
        'left outer join SadyOgloszenia s on M.idSaduOgloszenia = S.idSad' +
        'uOgloszenia'
      'where M.idMetryki = :id')
    Left = 88
    Top = 8
    ParamData = <
      item
        Name = 'ID'
        ParamType = ptInput
      end>
  end
  object ADQRodzajMet: TADQuery
    SQL.Strings = (
      'select idRodzaju, chRodzaj '
      'from Rodzaje '
      'where chRodzajPub = :pub'
      'order by chRodzaj')
    Left = 160
    Top = 8
    ParamData = <
      item
        Name = 'PUB'
        ParamType = ptInput
      end>
  end
  object ADQidRodzajuMet: TADQuery
    SQL.Strings = (
      'select idRodzaju '
      'from Rodzaje '
      'where chRodzaj = :rodzaj')
    Left = 248
    Top = 8
    ParamData = <
      item
        Name = 'RODZAJ'
        ParamType = ptInput
      end>
  end
  object ADQPodRodzaje: TADQuery
    SQL.Strings = (
      'select idPodRodzaju, chPodRodzaj '
      'from PodRodzaje'
      'where idRodzaju = :idrodzaju'
      'order by chPodRodzaj')
    Left = 344
    Top = 9
    ParamData = <
      item
        Name = 'IDRODZAJU'
        ParamType = ptInput
      end>
  end
  object ADQPlik: TADQuery
    SQL.Strings = (
      'select P.idPDF, P.chPubSkr, P.inStrona '
      'from Metryki M'
      'inner join RelacjaPDF R on M.idMetryki = R.idMetryki'
      'inner join PDF P on R.idPDF = P.idPDF'
      'where M.idMetryki = :id')
    Left = 16
    Top = 80
    ParamData = <
      item
        Name = 'ID'
        ParamType = ptInput
      end>
  end
  object ADQNiePodwiazane: TADQuery
    SQL.Strings = (
      'select P.idPDF, P.inStrona'
      'from PDF P'
      'where P.idPDF not in (select idPDF '
      '                      from RelacjaPDF '
      '                      where idMetryki = :id)'
      'and P.chPubSkr = :pub')
    Left = 88
    Top = 80
    ParamData = <
      item
        Name = 'ID'
        ParamType = ptInput
      end
      item
        Name = 'PUB'
        ParamType = ptInput
      end>
  end
  object ADQSprostowania: TADQuery
    Left = 184
    Top = 80
  end
  object ADQidPodRodzaju: TADQuery
    SQL.Strings = (
      'select idPodRodzaju '
      'from PodRodzaje '
      'where chPodRodzaj = :podrodzaj')
    Left = 296
    Top = 80
    ParamData = <
      item
        Name = 'PODRODZAJ'
        ParamType = ptInput
      end>
  end
  object ADQZapiszMet: TADQuery
    Left = 24
    Top = 168
  end
  object ADQSprawdzKRS: TADQuery
    SQL.Strings = (
      'select * '
      'from KRS '
      'where inKRS = :krs')
    Left = 448
    Top = 8
    ParamData = <
      item
        Name = 'KRS'
        ParamType = ptInput
      end>
  end
end
